[URL] Funktion

Tags:    asp

Jeg har lavet flere funktioner som gør at når jeg skriver
[img]logo.gif[/img] kommer der et logo frem på tagwalen, men vil
også gerne have lavet en funktion der gør at når jeg skriver det
her

[url=http://www.phpbb.com/]Besøg phpBB![/url]

Kommer der et link der hedder Besøg phpBB!

Dette er bare et eksempel

Mine funktioner ser således ud.

function ret(str)
dim retstr
retstr=replace(str,"&","&")
retstr=replace(retstr,"<","<")
retstr=replace(retstr,">",">")
retstr=replace(retstr,"''","'")
retstr=replace(retstr,"<br>",vbcrlf)
retstr=replace(retstr,"<b>","")
retstr=replace(retstr,"</b>","
")
retstr=replace(retstr,"<i>","")
retstr=replace(retstr,"</i>","
")
retstr=replace(retstr,"<u>","")
retstr=replace(retstr,"</u>","
")
retstr=replace(retstr,"<img src=","[img]")
retstr=replace(retstr,">","[/img]")

ret=retstr
end function




2 svar postet i denne tråd vises herunder
2 indlæg har modtaget i alt 4 karma
Sorter efter stemmer Sorter efter dato
Jeg har selv rodet en del med dette, og har ikke fundet på en fuldkommen klar metode.
Men hvis man kigger på hvordan det er blevet gjort i phpBB så kan man lege lidt ud fra det (ja det er php, men det er jo stadig programmering :) ).

En idè:
Søg efter "", og til sidst efter den første "".
Nu har du tre positioner som de så kan bruge til at hive informationerne ud fra strengen.
Fold kodeboks ind/udKode 


Hmm... måske sku jeg selv bruge det der >_< .




Jeg har lavet flere funktioner som gør at når jeg skriver
[img]logo.gif[/img] kommer der et logo frem på tagwalen, men vil
også gerne have lavet en funktion der gør at når jeg skriver det
her

[url=http://www.phpbb.com/]Besøg phpBB![/url]

Kommer der et link der hedder Besøg phpBB!

Dette er bare et eksempel

Mine funktioner ser således ud.

function ret(str)
dim retstr
retstr=replace(str,"&","&")
retstr=replace(retstr,"<","<")
retstr=replace(retstr,">",">")
retstr=replace(retstr,"''","'")
retstr=replace(retstr,"",vbcrlf)
retstr=replace(retstr,"","")
retstr=replace(retstr,"
","
")
retstr=replace(retstr,"","")
retstr=replace(retstr,"
","
")
retstr=replace(retstr,"","")
retstr=replace(retstr,"
","
")
retstr=replace(retstr,"<img src=","[img]")
retstr=replace(retstr,">","[/img]")

ret=retstr
end function

Noget ala dette?:
Fold kodeboks ind/udKode 


Hilsen Mathias



t